home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Stepfar.dxr / 00131_Alladin Navigation handlers.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  794 b   |  44 lines
  1. global gMasterData, gSection
  2.  
  3. on goIntroAlladin
  4.   go(label("alladinintro"))
  5.   set gSection to #clicks
  6.   goNarrator(gMasterData, "46")
  7. end
  8.  
  9. on goNextMarker
  10.   go(#next)
  11. end
  12.  
  13. on goPrevMarker
  14.   go(#previous)
  15. end
  16.  
  17. on initAlladinFields
  18.   repeat with i = 1 to 39
  19.     set vField to "field" & string(i)
  20.     set the text of member vField to " "
  21.     set the textFont of member vField to "Palatino"
  22.     set the textSize of member vField to 14
  23.     set the text of member vField to EMPTY
  24.   end repeat
  25. end
  26.  
  27. on newAnalysis
  28.   unLockFields()
  29.   initAlladinFields()
  30.   go(365)
  31. end
  32.  
  33. on lockFields
  34.   repeat with X = 1 to 24
  35.     set the editable of member ("field" & string(X)) to 0
  36.   end repeat
  37. end
  38.  
  39. on unLockFields
  40.   repeat with X = 1 to 24
  41.     set the editable of member ("field" & string(X)) to 1
  42.   end repeat
  43. end
  44.